home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 8: LINUX Games / Linux Cubed Series 8 - LINUX Games.iso / games / video / linux-ab.1 / linux-abuse.1.1.0.tar / abuse-1.10 / lisp / chat.lsp < prev    next >
Lisp/Scheme  |  1995-10-23  |  527b  |  14 lines
  1.  
  2. (defun chat_input (str)
  3.   (if (equal (elt str 0) #\/)
  4.       (if (and (search "/nick " str) (> (length str) 6))
  5.       (chat_print (concatenate 'string "# " (player_name) " is known as "
  6.                    (progn (set_player_name (substr 6 (- (length str) 1) str))
  7.                       (player_name))))
  8.     (if (search "/help" str)
  9.         (if (local_player (chat_print "Commands : /nick name, /help")))
  10.       (if (local_player)
  11.           (chat_print (concatenate 'string "unknown command " str)))))
  12.  
  13.     (chat_print (concatenate 'string "<" (player_name) "> " str))))
  14.